home *** CD-ROM | disk | FTP | other *** search
/ Holt Researcher: American History / Holt Researcher: American History.iso / pc / modules / tour.dxr / 00442_Interactions.ls < prev    next >
Encoding:
Text File  |  2000-01-21  |  2.1 KB  |  87 lines
  1. global gTourForwardArrow
  2.  
  3. on Interaction448
  4.   case (the member of sprite 3).name of
  5.     "section 4.4.7":
  6.       NextDisplay(3, rect(10, 137, 376, 156), "section 4.4.8 step2")
  7.     "section 4.4.8 step2":
  8.       NextDisplay(3, rect(10, 137, 51, 152), "section 4.4.8 step4")
  9.     "section 4.4.8 step4":
  10.       EvalGoOn(3, rect(58, 166, 144, 181))
  11.   end case
  12. end
  13.  
  14. on Interaction4411
  15.   case (the member of sprite 4).name of
  16.     "searchres 2":
  17.       NextDisplay(4, rect(391, 36, 560, 52), "searchres hilite")
  18.     "searchres hilite":
  19.       EvalGoOn(4, rect(593, 407, 636, 430))
  20.   end case
  21. end
  22.  
  23. on Interaction537
  24.   case (the member of sprite 4).name of
  25.     "wiz plain":
  26.       NextDisplay(4, rect(243, 152, 260, 167), "wiz grouped")
  27.     "wiz grouped":
  28.       EvalGoOn(4, rect(389, 238, 455, 260))
  29.   end case
  30. end
  31.  
  32. on Interaction56
  33.   case (the member of sprite 4).name of
  34.     "section 5.6":
  35.       NextDisplay(4, rect(137, 69, 233, 84), "section 5.6 w.2")
  36.     "section 5.6 w.2":
  37.       EvalGoOn(4, rect(389, 238, 455, 260))
  38.   end case
  39. end
  40.  
  41. on NextDisplay xSprite, TargetRect, memberName
  42.   clickLoc = the clickLoc
  43.   if inside(clickLoc, TargetRect) then
  44.     puppetSprite(xSprite, 1)
  45.     set the member of sprite xSprite to member(memberName)
  46.   end if
  47. end
  48.  
  49. on EvalGoOn xSprite, TargetRect
  50.   clickLoc = the clickLoc
  51.   if inside(clickLoc, TargetRect) then
  52.     puppetSprite(xSprite, 0)
  53.     simulateClickOn(gTourForwardArrow)
  54.   end if
  55. end
  56.  
  57. on ResetForVideo
  58.   repeat with z = 2 to 15
  59.     if not (the memberNum of sprite z = 0) then
  60.       if member(the member of sprite z).type = #digitalVideo then
  61.         VideoExists = 1
  62.         sprite(z).movieRate = 0
  63.         set the loc of sprite z to point(-888, -888)
  64.         updateStage()
  65.         set the member of sprite z to member("blank art")
  66.         updateStage()
  67.         set the puppet of sprite z to 0
  68.       end if
  69.     end if
  70.   end repeat
  71.   if VideoExists then
  72.     VideoExists = 0
  73.     puppetSprite(48, 1)
  74.     set the loc of sprite 48 to point(0, 0)
  75.     updateStage()
  76.     set the loc of sprite 48 to point(-888, -888)
  77.     updateStage()
  78.     puppetSprite(48, 0)
  79.   end if
  80. end
  81.  
  82. on UnPuppetSprites
  83.   repeat with rc = 2 to 15
  84.     puppetSprite(rc, 0)
  85.   end repeat
  86. end
  87.